10 POKE 808,225
11 POKE 53280,9 :POKE53281,9
12 PRINT"[147]ANDREAS MENKE (CA) FOR TIGERDISC!"
13 PRINT"CRAZE ARTWORX PRESENTS 'CHARSETVIEW'"
14 PRINT"NOTE: THIS PRG DOES NOT VIEW ALL CHAR-"
15 PRINT"ACTERS AND THE CHARSET MUST BE AT       $2000!"
16 PRINT"[159]L/ADE ZEICHENSATZ Z/EIGE ZEICHENSATZ"
17 GET A$:IF A$="L" THEN GOTO 20
18 IF A$="Z" THEN GOTO 34
19 GOTO 17
20 PRINT"DER FILENAME MUSS SO AUFGEBAUT SEIN:"
21 PRINT"[163][163][163][163]"
22 PRINT"[159]X.NAME"
23 PRINT"[194]"
24 PRINT"[194]"
25 PRINT"KENNUNG (1-9;A-P)
26 [153]"BITTE KENNUNG EINGEBEN (1-P)  $WAIT = DIR."
27 [161] B$:[139] B$[178]""[167]27
28 [139]B$[178]"$"[167][141]61:[137]26
29 [139] [198](B$)[177]48 [175] [198](B$)[179]58[167]32
30 [139] [198](B$)[177]64 [175] [198](B$)[179]81[167]32
31 [137]27
32 [159]2,8,2,B$[170]"*,P,R":[137]67
33 [147]B$[170]"*",8,1
34 [160]2:[160]15:[153]"OPEN1=1X1 2=1X2 3=2X2"
35 [153]"WELCHE ZEICHENSATZ-ART ? (1-3)"
36 [161] C$:[139]C$[178]""[167]36
37 C[178][197](C$):[139]C[179]1[176]C[177]3[167]36
38 [145] C  [137]40,49,55
39 [143]>-C/1995 BY ANDREAS MENKE (C ART)
40 [151]53272,25:[153]"LOADABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-="
41 [153]"?!<>.,:;=[]^*@(null)\"
42 [153]"ATNPEEKLENSTR$VALASCCHR$LEFT$RIGHT$MID$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)!#$%&'()(null)(null)STEPSQRTAN"
43 [153]"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789+-="
44 [153]"?!<>,.:;=[]^*@(null)\"
45 [153]"ATNPEEKLENSTR$VALASCCHR$RIGHT$MID$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)!#$%&'()(null)(null)STEPSQRTAN"
46 [153]"OPENBITTE TASTE DRUECKEN!"
47 [151] 198,0:[146] 198,1
48 [151]53272,20:[137] 11
49 [151]53272,25:[153]"LOADABCDEFGHIJKLMNOPQRSTUVWXYZ"
50 [153]"ATNPEEKLENSTR$VALASCCHR$LEFT$RIGHT$MID$(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)"
51 [143] ANDREAS MENKE       MEISENWEG 2
52 [143]         59939 OLSBERG
53 [151] 198,0:[146] 198,1
54 [151]53272,20:[137] 11
55 [151]53272,25:[153]"LOADAATNBPEEKCLENDSTR$EVALFASCGCHR$HLEFT$IRIGHT$JMID$K(null)L(null)M(null)N(null)O(null)P(null)Q(null)R(null)S(null)"
56 [153]"AATNBPEEKCLENDSTR$EVALFASCGCHR$HLEFT$IRIGHT$JMID$K(null)L(null)M(null)N(null)O(null)P(null)Q(null)R(null)S(null)"
57 [153]"WAITT(null)U(null)V(null)W(null)X(null)Y(null)Z(null)"
58 [153]"T(null)U(null)V(null)W(null)X(null)Y(null)Z(null)"
59 [151] 198,0:[146] 198,1
60 [151] 53272,20:[137] 11
61 [153]"LOAD":[159]1,8,0,"$":[151]781,1:[158]65478:[161]A$,A$:E$[178][199](0)
62 [161]A$,A$,H$,L$:[139]ST[167][158]65484:[160]1:[137]66
63 [153][198](H$[170]E$)[170]256[172][198](L$[170]E$);
64 [161]A$,B$:[139]A$[167][153]A$B$;:[137]64
65 [153]A$:[137]62
66 [151]198,0:[146]198,1:[151]198,0:[142]
67 [159]15,8,15
68 [132]15,AA,BB$,CC,DD
69 [139]AA[179][177]0[167][153]"              F E H L E R  !           ":[137]71
70 [137]33
71 [153],AA;BB$;CC;DD
72 [129]T[178]1[164]2000:[130]:[160]2:[160]15:[137]26